home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 3 / 003.d81 / gardning tools (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  229 lines
  1. 10 rem *******************************
  2. 20 rem *                             *
  3. 30 rem *  gardner's prompting tools  *
  4. 40 rem *       circa. 1984           *
  5. 50 rem *******************************
  6. 60 :
  7. 65 poke783,peek(783)and254
  8. 70 print"[147]":poke53281,7:gosub20000
  9. 80 :
  10. 90 :
  11. 100 poke783,peek(783)and254:poke53281,7:print"[147]"
  12. 105 rem clear carry flag
  13. 110 h1=2:h2=2:h3=35:h4=35
  14. 120 v1=2:v2=22:v3=2:v4=22
  15. 130 rem set up horizontal & vertical
  16. 140 :
  17. 150 pl=65520
  18. 160 rem  sys address for 'plot' routine
  19. 165 :
  20. 170 :
  21. 180 :
  22. 200 rem  first character
  23. 205 :
  24. 210 m$="[206][195][205][194]"
  25. 215 c1$="shift 'n'- [206]":c2$="shift 'm'- [205]":c3$="shift 'c'- [195]":c4$="shift 'b'- [194]"
  26. 220 ln=210:p=1:gosub10000
  27. 290 :
  28. 295 :
  29. 300 rem  second character
  30. 310 m$="[213][201][203][202]"
  31. 315 c1$="shift 'u'- [213]":c2$="shift 'i'- [201]":c3$="shift 'k'- [203]":c4$="shift 'j'- [202]"
  32. 320 ln=310:p=1:gosub10000
  33. 390 :
  34. 395 :
  35. 400 rem  third character
  36. 410 m$="[210][198][196][197]"
  37. 415 c1$="shift 'e'- [197]":c2$="shift 'd'- [196]":c3$="shift 'f'- [198]":c4$="shift 'r'- [210]"
  38. 420 ln=410:p=1:gosub10000
  39. 490 :
  40. 495 :
  41. 500 rem  fourth character
  42. 510 m$="[212][199][200][217][212][199][200][217]"
  43. 515 c1$="shift 't'- [212]":c2$="shift 'g'- [199]":c3$="shift 'h'- [200]":c4$="shift 'y'- [217]"
  44. 520 ln=510:p=1:gosub10000
  45. 590 :
  46. 595 :
  47. 600 rem  fifth character
  48. 610 m$="[207][208][186][204]"
  49. 615 c1$="shift 'o'- [207]":c2$="shift 'p'- [208]":c3$="shift '@'- [186]":c4$="shift 'l'- [204]"
  50. 620 ln=610:p=1:gosub10000
  51. 690 :
  52. 695 :
  53. 700 rem  sixth character
  54. 710 m$="[209][215]"
  55. 715 c1$="shift 'q'- [209]":c2$="shift 'w'- [215]":c3$="":c4$=""
  56. 720 ln=710:p=1:gosub10000
  57. 790 :
  58. 795 :
  59. 800 rem  seventh character
  60. 810 m$="><"
  61. 815 c1$="shift '.'- >":c2$="shift ','- <":c3$="":c4$=""
  62. 820 ln=810:p=1:gosub10000
  63. 890 :
  64. 895 :
  65. 900 rem  eighth character
  66. 910 m$=". "
  67. 915 c1$="   period":c2$="   space":c3$="":c4$=""
  68. 920 ln=910:p=1:gosub10000
  69. 990 :
  70. 995 :
  71. 1000 rem  ninth character
  72. 1010 m$="(o)(0)"
  73. 1015 c1$="shift '8'- (":c2$="shift '9'- )":c3$="     oh":c4$="    zero"
  74. 1020 ln=1010:p=1:gosub10000
  75. 1090 :
  76. 1095 :
  77. 1100 rem  tenth character
  78. 1110 m$="[201][194][213]"
  79. 1115 c1$="shift 'u'- [213]":c2$="shift 'i'- [201]":c3$="shift 'b'- [194]":c4$=""
  80. 1120 ln=1110:p=1:gosub10000
  81. 1190 :
  82. 1195 :
  83. 1200 rem  eleventh character
  84. 1210 m$="+[219]"
  85. 1215 c1$="shift '+'- [219]":c2$="plus sign":c3$="":c4$=""
  86. 1220 ln=1210:p=1:gosub10000
  87. 1290 :
  88. 1295 :
  89. 1300 rem  twelfth character
  90. 1310 m$="[171][177][179][178]"
  91. 1315 c1$="   c= 'q'- [171]":c2$="   c= 'w'- [179]":c3$="   c= 'e'- [177]":c4$="   c= 'r'- [178]"
  92. 1320 ln=1310:p=1:gosub10000
  93. 1390 :
  94. 1395 :
  95. 1400 rem  thirtenth character
  96. 1410 m$="[176][174][189][173]"
  97. 1415 c1$="   c= 'a'- [176]":c2$="   c= 's'- [174]":c3$="   c= 'x'- [189]":c4$="   c= 'z'- [173]"
  98. 1420 ln=1410:p=1:gosub10000
  99. 1490 :
  100. 1495 :
  101. 1500 rem  fourtenth character
  102. 1510 m$="[183][184][162][185][175][164][164][175][185][162][184][183][163]"
  103. 1515 c1$="   c= 't'- [163]":c2$="   c= 'y'- [183]":c3$="   c= 'u'- [184]":c4$="   c= 'i'- [162]"
  104. 1517 c5$="   c= 'o'- [185]":c6$="   c= 'p'- [175]":c7$="   c= '@'- [164]"
  105. 1520 ln=1510:p=1:gosub10000
  106. 1590 :
  107. 1595 :
  108. 1600 rem  fiftenth character
  109. 1610 m$="[167][170][182][161][181][180][165][180][181][161][182][170][167]"
  110. 1615 c1$="    c= 'm'- [167]":c2$="    c= 'n'- [170]":c3$="    c= 'g'- [165]"
  111. 1617 c4$="    c= 'h'- [180]":c5$="    c= 'j'- [181]":c6$="    c= 'k'- [161]"
  112. 1618 c7$="    c= 'l'-[182]":c8$=""
  113. 1620 ln=1610:p=1:gosub10000
  114. 1690 :
  115. 1695 :
  116. 1700 rem  sixtenth character
  117. 1710 m$="[211][211][211][211][209]"
  118. 1715 c1$="shift 's'- [211]":c2$="shift 'q'- [209]":c3$="":c4$="":c5$="":c6$="":c7$=""
  119. 1720 ln=1710:p=1:gosub10000
  120. 1790 :
  121. 1795 :
  122. 1800 rem  sevententh character
  123. 1810 m$="[195]=[195]="
  124. 1815 c1$="shift 'c'- [195]":c2$="equal sign  ":c3$="":c4$="":c5$="":c6$="":c7$=""
  125. 1820 ln=1810:p=1:gosub10000
  126. 1890 :
  127. 1895 :
  128. 1900 rem  eightenth character
  129. 1910 m$="][]["
  130. 1915 c1$="shift ':'- [":c2$="shift ';'- ]":c3$="":c4$="":c5$="":c6$="":c7$=""
  131. 1920 ln=1910:p=1:gosub10000
  132. 1990 :
  133. 1995 :
  134. 2000 rem  ninetenth character
  135. 2010 m$="[169][146][169]"
  136. 2015 c1$="rev sh '\'- [169][146]":c2$="shift '\' - [169]":c3$="":c4$="":c5$="":c6$=""
  137. 2020 ln=2010:p=2:gosub10000
  138. 2090 :
  139. 2095 :
  140. 2100 rem  twentieth character
  141. 2110 m$="[192][146] [192][146] "
  142. 2115 c1$="shift '*' - [192]":c2$="rev sh '*'- [192][146]":c3$="":c4$="":c5$="":c6$=""
  143. 2120 ln=2110:p=4:gosub10000
  144. 2190 :
  145. 2195 :
  146. 2200 rem  twenty-first character
  147. 2210 m$="[166][146] [166][146] "
  148. 2215 c1$="    c= '+'- [166]":c2$="rev c= '+'- [166][146]":c3$="":c4$="":c5$="":c6$=""
  149. 2220 ln=2210:p=4:gosub10000
  150. 2290 :
  151. 2295 :
  152. 2300 rem  twenty-second character
  153. 2310 m$="$!$!"
  154. 2315 c1$="shift '4'- $":c2$="shift '1'- ! ":c3$="":c4$="":c5$="":c6$=""
  155. 2320 ln=2310:p=1:gosub10000
  156. 2390 :
  157. 2395 :
  158. 2400 rem  twenty-third character
  159. 2410 m$="...!!"
  160. 2415 c1$="    period  ":c2$="shift '1'- ! ":c3$="":c4$="":c5$="":c6$=""
  161. 2420 ln=2410:p=1:gosub10000
  162. 2490 :
  163. 2495 :
  164. 2500 rem  twenty-fourth character
  165. 2510 m$="[172][187][190][188][172][187][190][188]"
  166. 2515 c1$=" c= 'd'- [172]":c2$=" c= 'f'- [187]":c3$=" c= 'v'- [190]":c4$=" c= 'c'- [188]":c5$=""
  167. 2520 ln=2510:p=1:gosub10000
  168. 2590 :
  169. 2595 :
  170. 2600 rem  twenty-fifth character
  171. 2610 m$="[219][206][205][219][206][205]"
  172. 2615 c1$="shift '+'- [219]":c2$="shift 'n'- [206]":c3$="shift 'm'- [205]":c4$=""
  173. 2620 ln=2610:p=1:gosub10000
  174. 2690 :
  175. 2695 :
  176. 9000 print"[147]":print"want to see them again (y/n)":poke198,0:wait198,1:getz$
  177. 9005 ifz$="n"then9950
  178. 9010 ifz$="y"then100
  179. 9020 goto9000
  180. 9950 print"[147]"
  181. 9955 print"load"chr$(34)"payload"chr$(34)",8":print"run"
  182. 9960 poke631,13:poke632,13:poke198,2:end
  183. 9999 :
  184. 10000 rem sub to plot
  185. 10010 print"[147]"
  186. 10015 print"this cursor uses the characters:"
  187. 10017 print:print
  188. 10018 printtab(13)c1$:printtab(13)c2$:printtab(13)c3$:printtab(13)c4$
  189. 10019 printtab(13)c5$:printtab(13)c6$:printtab(13)c7$
  190. 10020 print:printtab(5)"the string is contained in line:":printtab(16)ln
  191. 10021 poke781,22:poke782,10:sys65520:print"<please press a key>"
  192. 10022 rem this is where the actual
  193. 10024 rem plotting routine begins.
  194. 10025 forx=1tolen(m$)/p:a$=mid$(m$,x,p):geti$:ifi$<>""then10080
  195. 10030 poke781,v1:poke782,h1:syspl:printa$
  196. 10040 poke781,v2:poke782,h2:syspl:printa$
  197. 10050 poke781,v3:poke782,h3:syspl:printa$
  198. 10060 poke781,v4:poke782,h4:syspl:printa$
  199. 10065 :
  200. 10070 nextx:goto10025
  201. 10080 return
  202. 20000 rem    instructions????
  203. 20010 print"[147]"
  204. 20020 poke781,2:poke782,8:sys65520:print"gardner's garden tools"
  205. 20030 print:print:print
  206. 20040 print" well you might have noticed that just":print
  207. 20050 print"about everyone likes to use an ordinary":print
  208. 20060 print"everyday cursor for an input prompt.":print
  209. 20070 print"            well, not me!!!":print:print
  210. 20080 print" this is why i wrote gardner's garden":print
  211. 20090 print"tools.  now i can share some of my best":print
  212. 20100 print"and perhaps strangest cursor prompts.":print
  213. 20105 poke781,22:poke782,10:sys65520:print"<please press a key>"
  214. 20106 poke198,0:wait198,1:getz$
  215. 20107 print"[147]":poke781,2:poke782,8:sys65520:print"gardner's garden tools"
  216. 20108 print:print:print
  217. 20110 print" i hope you enjoy this program and i":print
  218. 20120 print"hope you will try to think of others ":print
  219. 20130 print"and share them with me.":print:print:print
  220. 20140 print" and now for your last look at an ":print
  221. 20150 print"ordinary cursor.":print:print
  222. 20160 poke781,22:poke782,10:sys65520:print"<please press a key>"
  223. 20165 x$=" [146] "
  224. 20170 fort=1tolen(x$)/2:poke781,23:poke782,19:sys65520:printmid$(x$,t,2)
  225. 20180 getz$:ifz$<>""then20190
  226. 20182 fordl=1to180:nextdl
  227. 20185 nextt:goto20170
  228. 20190 return
  229.